open(BUFF,"ls ./data-HTHGU133|");
system("touch combined_file");
while($line=<BUFF>)
{
	chomp($line);
	#print $line."\n";
	if(-e "./data-HTHGU133/$line/file.txt" || $line ne "GSE26386")
	{
		#print "./data-HTHGU133/$line/file.txt not exists\n";
		system("cat combined_file ./data-HTHGU133/$line/file.txt > combined_file1");
		system("mv combined_file1 combined_file");
	}
}
